All Scenarios
##
## a_reasons b_dumbfounded c_nothing_wrong
## 100 19 21
Politics and Religion
Political Ideology
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71852 0.13333 0.14815
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.08E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.863662 0.533065 -3.4961 0.0004721 ***
## (Intercept):c_nothing_wrong -2.431871 0.577769 -4.2091 2.564e-05 ***
## Political_Ideology:b_dumbfounded 0.052674 0.134632 0.3912 0.6956171
## Political_Ideology:c_nothing_wrong 0.228802 0.130556 1.7525 0.0796838 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -104.94
## McFadden R^2: 0.014906
## Likelihood ratio test : chisq = 3.1758 (p.value = 0.20436)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (PI)

RCOPE Positive
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71642 0.13433 0.14925
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.00113
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.759118 0.599914 -2.9323 0.003365 **
## (Intercept):c_nothing_wrong -2.230652 0.562117 -3.9683 7.238e-05 ***
## RE_P:b_dumbfounded 0.056119 0.355043 0.1581 0.874409
## RE_P:c_nothing_wrong 0.408376 0.297709 1.3717 0.170148
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -105.3
## McFadden R^2: 0.008408
## Likelihood ratio test : chisq = 1.7857 (p.value = 0.40948)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (RCOPE Positive)

RCOPE Negative
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71429 0.13534 0.15038
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.24E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.29245 0.85503 -1.5116 0.1306388
## (Intercept):c_nothing_wrong -2.34749 0.66957 -3.5060 0.0004549 ***
## RE_N:b_dumbfounded -0.29780 0.66375 -0.4487 0.6536740
## RE_N:c_nothing_wrong 0.58794 0.44943 1.3082 0.1908093
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -104.82
## McFadden R^2: 0.0097795
## Likelihood ratio test : chisq = 2.0705 (p.value = 0.35514)
## $hosmer_and_lemeshow
## [1] -4.440892e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -4.440892e-16
##
## $nagelkerke
## [1] -6.167755e-16
Plot (RCOPE Negative)

Thinking
Need For Cognition
##
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71642 0.13433 0.14925
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.77E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.66135 0.25739 -6.4547 1.084e-10 ***
## (Intercept):c_nothing_wrong -1.65473 0.26623 -6.2154 5.119e-10 ***
## NFC:b_dumbfounded -0.12886 0.19393 -0.6645 0.5064
## NFC:c_nothing_wrong 0.21701 0.19132 1.1343 0.2567
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -105.16
## McFadden R^2: 0.0096919
## Likelihood ratio test : chisq = 2.0584 (p.value = 0.35729)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (NFC)

AOT
##
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72093 0.13178 0.14729
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.33E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -3.51045 1.47277 -2.3836 0.01715 *
## (Intercept):c_nothing_wrong -1.32065 1.35920 -0.9716 0.33123
## AOT:b_dumbfounded 0.81830 0.64107 1.2764 0.20180
## AOT:c_nothing_wrong -0.12533 0.62772 -0.1997 0.84175
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -100.37
## McFadden R^2: 0.0089168
## Likelihood ratio test : chisq = 1.8061 (p.value = 0.40533)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (AOT)

Dark Triad
Machiavellianism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71324 0.13235 0.15441
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.000887
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.744040 0.558052 -3.1252 0.001777 **
## (Intercept):c_nothing_wrong -1.485251 0.520999 -2.8508 0.004361 **
## DT_M:b_dumbfounded 0.018758 0.154845 0.1211 0.903579
## DT_M:c_nothing_wrong -0.014315 0.147827 -0.0968 0.922858
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -108.4
## McFadden R^2: 0.00013247
## Likelihood ratio test : chisq = 0.028723 (p.value = 0.98574)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Machiavellianism)

Narcissism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71212 0.12879 0.15909
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.02E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.483077 0.601832 -2.4643 0.01373 *
## (Intercept):c_nothing_wrong -0.949243 0.537191 -1.7670 0.07722 .
## DT_N:b_dumbfounded -0.054862 0.133176 -0.4120 0.68038
## DT_N:c_nothing_wrong -0.138199 0.125927 -1.0975 0.27244
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -104.71
## McFadden R^2: 0.0061715
## Likelihood ratio test : chisq = 1.3005 (p.value = 0.52193)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Narcissism)

Psychopathy
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71324 0.13235 0.15441
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.0011
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.710128 0.456978 -3.7423 0.0001824 ***
## (Intercept):c_nothing_wrong -1.838927 0.421539 -4.3624 1.286e-05 ***
## DT_P:b_dumbfounded 0.011052 0.161391 0.0685 0.9454045
## DT_P:c_nothing_wrong 0.123840 0.132893 0.9319 0.3514008
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -108
## McFadden R^2: 0.0038199
## Likelihood ratio test : chisq = 0.82825 (p.value = 0.66092)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Psychopathy)

Big Five
Openness
##
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71324 0.13235 0.15441
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.000788
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.98184 1.26600 -1.5654 0.1175
## (Intercept):c_nothing_wrong -1.83928 1.18738 -1.5490 0.1214
## Openness:b_dumbfounded 0.11267 0.46746 0.2410 0.8095
## Openness:c_nothing_wrong 0.11704 0.43837 0.2670 0.7895
##
## Log-Likelihood: -108.36
## McFadden R^2: 0.00050872
## Likelihood ratio test : chisq = 0.1103 (p.value = 0.94634)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Openness)

Agreeableness
##
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71533 0.13139 0.15328
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.91E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -3.24449 1.53774 -2.1099 0.03487 *
## (Intercept):c_nothing_wrong -1.84143 1.42851 -1.2891 0.19738
## Agreeableness:b_dumbfounded 0.58239 0.56116 1.0378 0.29935
## Agreeableness:c_nothing_wrong 0.11517 0.53727 0.2144 0.83027
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -108.21
## McFadden R^2: 0.0049285
## Likelihood ratio test : chisq = 1.0719 (p.value = 0.5851)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Agreeableness)

Conscientiousness
##
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71533 0.13139 0.15328
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.000885
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.42003 1.32820 -1.8220 0.06845 .
## (Intercept):c_nothing_wrong -1.93046 1.23786 -1.5595 0.11887
## Conscientiousness:b_dumbfounded 0.27593 0.49090 0.5621 0.57405
## Conscientiousness:c_nothing_wrong 0.14933 0.46261 0.3228 0.74684
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -108.56
## McFadden R^2: 0.0016945
## Likelihood ratio test : chisq = 0.36854 (p.value = 0.83171)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Conscientiousness)

Neuroticism
##
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71533 0.13139 0.15328
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 4.77E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.628041 1.076791 -1.5119 0.13055
## (Intercept):c_nothing_wrong -2.710432 1.081689 -2.5057 0.01222 *
## Neuroticism:b_dumbfounded -0.024235 0.381342 -0.0636 0.94933
## Neuroticism:c_nothing_wrong 0.411329 0.363111 1.1328 0.25730
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -108.06
## McFadden R^2: 0.0063066
## Likelihood ratio test : chisq = 1.3717 (p.value = 0.50367)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Neuroticism)

Moral Foundations
Harm/Care
##
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72519 0.13740 0.13740
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.21E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.53479 1.70911 -1.4831 0.1380
## (Intercept):c_nothing_wrong -0.80160 1.58048 -0.5072 0.6120
## harm_care:b_dumbfounded 0.25421 0.48947 0.5194 0.6035
## harm_care:c_nothing_wrong -0.25703 0.46862 -0.5485 0.5834
##
## Log-Likelihood: -101.64
## McFadden R^2: 0.0033341
## Likelihood ratio test : chisq = 0.68002 (p.value = 0.71176)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Harm/Care)

Fairness
##
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72727 0.13636 0.13636
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.00108
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.559513 1.819408 -0.8572 0.3914
## (Intercept):c_nothing_wrong -0.179640 1.708341 -0.1052 0.9163
## fairness:b_dumbfounded -0.028646 0.451175 -0.0635 0.9494
## fairness:c_nothing_wrong -0.379612 0.433756 -0.8752 0.3815
##
## Log-Likelihood: -101.92
## McFadden R^2: 0.0037117
## Likelihood ratio test : chisq = 0.75941 (p.value = 0.68406)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Fairness)

Loyalty
##
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72308 0.13846 0.13846
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.000412
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -0.75164 0.97994 -0.7670 0.4431
## (Intercept):c_nothing_wrong -0.18595 0.95580 -0.1946 0.8457
## loyalty:b_dumbfounded -0.35145 0.37674 -0.9329 0.3509
## loyalty:c_nothing_wrong -0.58462 0.38014 -1.5379 0.1241
##
## Log-Likelihood: -100.21
## McFadden R^2: 0.014255
## Likelihood ratio test : chisq = 2.8983 (p.value = 0.23477)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Loyalty)

Authority
##
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72727 0.13636 0.13636
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.00143
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.542164 0.870151 -1.7723 0.07635 .
## (Intercept):c_nothing_wrong -0.783427 0.800300 -0.9789 0.32762
## authority:b_dumbfounded -0.048778 0.308996 -0.1579 0.87457
## authority:c_nothing_wrong -0.342827 0.300994 -1.1390 0.25471
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -101.65
## McFadden R^2: 0.0063031
## Likelihood ratio test : chisq = 1.2896 (p.value = 0.52477)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Authority)

Purity
##
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72308 0.13846 0.13846
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.00155
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.877179 0.786653 -2.3863 0.01702 *
## (Intercept):c_nothing_wrong -1.213684 0.745502 -1.6280 0.10352
## purity:b_dumbfounded 0.090937 0.298649 0.3045 0.76075
## purity:c_nothing_wrong -0.185769 0.301735 -0.6157 0.53811
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -101.38
## McFadden R^2: 0.0026956
## Likelihood ratio test : chisq = 0.54806 (p.value = 0.76031)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Purity)

All Variables
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P +
## RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion +
## Openness + Agreeableness + Conscientiousness + harm_care +
## +fairness + loyalty + authority + purity + AOT, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.70833 0.14167 0.15000
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.76E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -11.2714318 5.4578720 -2.0652 0.03891 *
## (Intercept):c_nothing_wrong -7.4509722 5.1226826 -1.4545 0.14581
## Political_Ideology:b_dumbfounded 0.1281426 0.2030566 0.6311 0.52800
## Political_Ideology:c_nothing_wrong 0.2814945 0.2021741 1.3923 0.16382
## NFC:b_dumbfounded 0.0047443 0.2786676 0.0170 0.98642
## NFC:c_nothing_wrong 0.3756614 0.3202854 1.1729 0.24084
## RE_P:b_dumbfounded 0.0528976 0.5228501 0.1012 0.91941
## RE_P:c_nothing_wrong 0.5373322 0.4865721 1.1043 0.26945
## RE_N:b_dumbfounded -0.7442717 0.9701924 -0.7671 0.44300
## RE_N:c_nothing_wrong 0.5045298 0.7518488 0.6711 0.50219
## DT_M:b_dumbfounded -0.1671270 0.2438095 -0.6855 0.49304
## DT_M:c_nothing_wrong 0.1332741 0.2637434 0.5053 0.61334
## DT_P:b_dumbfounded 0.0783709 0.2300611 0.3407 0.73337
## DT_P:c_nothing_wrong 0.2324055 0.2209965 1.0516 0.29297
## DT_N:b_dumbfounded 0.0638181 0.1746913 0.3653 0.71487
## DT_N:c_nothing_wrong -0.2550103 0.2173224 -1.1734 0.24063
## Neuroticism:b_dumbfounded 0.2129247 0.4660972 0.4568 0.64780
## Neuroticism:c_nothing_wrong 0.5685684 0.4581309 1.2411 0.21458
## Extraversion:b_dumbfounded 0.0908539 0.6483224 0.1401 0.88855
## Extraversion:c_nothing_wrong 0.4881453 0.6705774 0.7279 0.46665
## Openness:b_dumbfounded 0.4074303 0.7433885 0.5481 0.58364
## Openness:c_nothing_wrong 0.5374937 0.7804728 0.6887 0.49103
## Agreeableness:b_dumbfounded 0.4075725 0.8397540 0.4853 0.62743
## Agreeableness:c_nothing_wrong -0.1507693 0.8253794 -0.1827 0.85506
## Conscientiousness:b_dumbfounded 0.2837539 0.6627841 0.4281 0.66856
## Conscientiousness:c_nothing_wrong 0.2139318 0.6606006 0.3238 0.74606
## harm_care:b_dumbfounded 0.7334954 0.6311949 1.1621 0.24521
## harm_care:c_nothing_wrong 0.1614460 0.5913442 0.2730 0.78484
## fairness:b_dumbfounded 0.4928605 0.6477889 0.7608 0.44676
## fairness:c_nothing_wrong 0.2153805 0.6082283 0.3541 0.72326
## loyalty:b_dumbfounded -0.8766589 0.5471727 -1.6022 0.10912
## loyalty:c_nothing_wrong -0.7915035 0.5256841 -1.5057 0.13215
## authority:b_dumbfounded -0.1284743 0.5169231 -0.2485 0.80372
## authority:c_nothing_wrong -0.2779190 0.5771354 -0.4815 0.63013
## purity:b_dumbfounded 0.0927462 0.5425152 0.1710 0.86426
## purity:c_nothing_wrong -0.0286183 0.5409833 -0.0529 0.95781
## AOT:b_dumbfounded 1.9575813 1.0571534 1.8517 0.06406 .
## AOT:c_nothing_wrong -0.0318061 1.0609371 -0.0300 0.97608
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -83.219
## McFadden R^2: 0.13926
## Likelihood ratio test : chisq = 26.927 (p.value = 0.86316)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Trolley
##
## a_reasons b_dumbfounded c_nothing_wrong
## 21 3 11
Politics and Religion
Political Ideology
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.588235 0.088235 0.323529
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 7.31E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.92605 1.64788 -1.7756 0.07579 .
## (Intercept):c_nothing_wrong -1.00699 0.92711 -1.0862 0.27741
## Political_Ideology:b_dumbfounded 0.24210 0.33578 0.7210 0.47091
## Political_Ideology:c_nothing_wrong 0.10192 0.20866 0.4884 0.62523
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -29.993
## McFadden R^2: 0.010434
## Likelihood ratio test : chisq = 0.63251 (p.value = 0.72887)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (PI)

RCOPE Positive
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.588235 0.088235 0.323529
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 4.24E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -3.21023 1.47749 -2.1728 0.02980 *
## (Intercept):c_nothing_wrong -2.38052 0.97852 -2.4328 0.01498 *
## RE_P:b_dumbfounded 0.82037 0.76855 1.0674 0.28578
## RE_P:c_nothing_wrong 1.06017 0.53250 1.9909 0.04649 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -27.855
## McFadden R^2: 0.080949
## Likelihood ratio test : chisq = 4.907 (p.value = 0.085993)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (RCOPE Positive)

RCOPE Negative
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.588235 0.088235 0.323529
##
## nr method
## 20 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.74E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 103.27029 18883.29901 0.0055 0.9956
## (Intercept):c_nothing_wrong -1.57821 1.06672 -1.4795 0.1390
## RE_N:b_dumbfounded -104.47286 18883.29885 -0.0055 0.9956
## RE_N:c_nothing_wrong 0.66685 0.67040 0.9947 0.3199
##
## Log-Likelihood: -27.58
## McFadden R^2: 0.090048
## Likelihood ratio test : chisq = 5.4585 (p.value = 0.065267)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (RCOPE Negative)

Thinking
Need For Cognition
##
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.600000 0.085714 0.314286
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 4.86E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.08750 0.69248 -3.0145 0.002574 **
## (Intercept):c_nothing_wrong -0.76413 0.40201 -1.9008 0.057332 .
## NFC:b_dumbfounded -0.38175 0.53856 -0.7088 0.478434
## NFC:c_nothing_wrong 0.50619 0.33959 1.4906 0.136070
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -29.067
## McFadden R^2: 0.057177
## Likelihood ratio test : chisq = 3.5255 (p.value = 0.17157)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (NFC)

AOT
##
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.606061 0.090909 0.303030
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 8.44E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -4.12497 4.21083 -0.9796 0.3273
## (Intercept):c_nothing_wrong 2.21193 3.29684 0.6709 0.5023
## AOT:b_dumbfounded 0.97827 1.79958 0.5436 0.5867
## AOT:c_nothing_wrong -1.33628 1.51975 -0.8793 0.3792
##
## Log-Likelihood: -28.458
## McFadden R^2: 0.023692
## Likelihood ratio test : chisq = 1.3811 (p.value = 0.50129)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (AOT)

Dark Triad
Machiavellianism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.588235 0.088235 0.323529
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 8.39E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -4.752413 2.092221 -2.2715 0.02312 *
## (Intercept):c_nothing_wrong 0.047854 0.820533 0.0583 0.95349
## DT_M:b_dumbfounded 0.786680 0.471529 1.6684 0.09524 .
## DT_M:c_nothing_wrong -0.255106 0.296364 -0.8608 0.38935
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -27.781
## McFadden R^2: 0.08342
## Likelihood ratio test : chisq = 5.0568 (p.value = 0.079788)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Machiavellianism)

Narcissism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.575758 0.090909 0.333333
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.65E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.75208 1.75010 -1.5725 0.11583
## (Intercept):c_nothing_wrong 1.15432 0.94328 1.2237 0.22105
## DT_N:b_dumbfounded 0.19789 0.33946 0.5830 0.55993
## DT_N:c_nothing_wrong -0.48171 0.25570 -1.8839 0.05958 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -27.121
## McFadden R^2: 0.088908
## Likelihood ratio test : chisq = 5.2932 (p.value = 0.070893)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Narcissism)

Psychopathy
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.588235 0.088235 0.323529
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 8.2E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -3.533746 1.222289 -2.8911 0.003839 **
## (Intercept):c_nothing_wrong -0.750525 0.746109 -1.0059 0.314455
## DT_P:b_dumbfounded 0.605184 0.347345 1.7423 0.081453 .
## DT_P:c_nothing_wrong 0.078383 0.329093 0.2382 0.811743
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -28.277
## McFadden R^2: 0.067035
## Likelihood ratio test : chisq = 4.0635 (p.value = 0.1311)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Psychopathy)

Big Five
Openness
##
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.575758 0.090909 0.333333
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.000135
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -4.89827 3.41615 -1.4339 0.1516
## (Intercept):c_nothing_wrong -2.04997 1.95894 -1.0465 0.2953
## Openness:b_dumbfounded 1.07796 1.13851 0.9468 0.3437
## Openness:c_nothing_wrong 0.54688 0.69377 0.7883 0.4305
##
## Log-Likelihood: -29.133
## McFadden R^2: 0.021338
## Likelihood ratio test : chisq = 1.2703 (p.value = 0.52984)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Openness)

Agreeableness
##
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.588235 0.088235 0.323529
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 4.17E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -7.48443 3.81053 -1.9641 0.04951 *
## (Intercept):c_nothing_wrong -0.80529 2.39096 -0.3368 0.73626
## Agreeableness:b_dumbfounded 1.98398 1.27049 1.5616 0.11838
## Agreeableness:c_nothing_wrong 0.07958 0.90516 0.0879 0.92994
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -28.985
## McFadden R^2: 0.043696
## Likelihood ratio test : chisq = 2.6487 (p.value = 0.26597)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Agreeableness)

Conscientiousness
##
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.588235 0.088235 0.323529
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.86E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.87324 3.06322 -0.9380 0.3483
## (Intercept):c_nothing_wrong -0.19960 1.90592 -0.1047 0.9166
## Conscientiousness:b_dumbfounded 0.35365 1.07081 0.3303 0.7412
## Conscientiousness:c_nothing_wrong -0.14845 0.69825 -0.2126 0.8316
##
## Log-Likelihood: -30.213
## McFadden R^2: 0.0031515
## Likelihood ratio test : chisq = 0.19104 (p.value = 0.9089)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Conscientiousness)

Neuroticism
##
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.588235 0.088235 0.323529
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.67E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.765554 2.724959 -0.6479 0.5170
## (Intercept):c_nothing_wrong -1.574307 1.751654 -0.8988 0.3688
## Neuroticism:b_dumbfounded -0.048157 0.973912 -0.0494 0.9606
## Neuroticism:c_nothing_wrong 0.347400 0.604111 0.5751 0.5653
##
## Log-Likelihood: -30.125
## McFadden R^2: 0.0060628
## Likelihood ratio test : chisq = 0.36751 (p.value = 0.83214)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Neuroticism)

Moral Foundations
Harm/Care
##
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.617647 0.088235 0.294118
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.63E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -0.81249 3.98980 -0.2036 0.8386
## (Intercept):c_nothing_wrong -2.03475 2.73730 -0.7433 0.4573
## harm_care:b_dumbfounded -0.34700 1.21882 -0.2847 0.7759
## harm_care:c_nothing_wrong 0.38531 0.80368 0.4794 0.6316
##
## Log-Likelihood: -29.448
## McFadden R^2: 0.0064762
## Likelihood ratio test : chisq = 0.3839 (p.value = 0.82535)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Harm/Care)

Fairness
##
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.617647 0.088235 0.294118
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 9.55E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 0.927552 3.623619 0.2560 0.7980
## (Intercept):c_nothing_wrong -0.994143 2.745536 -0.3621 0.7173
## fairness:b_dumbfounded -0.763816 0.974592 -0.7837 0.4332
## fairness:c_nothing_wrong 0.064556 0.695200 0.0929 0.9260
##
## Log-Likelihood: -29.311
## McFadden R^2: 0.011094
## Likelihood ratio test : chisq = 0.65763 (p.value = 0.71978)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Fairness)

Loyalty
##
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.617647 0.088235 0.294118
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.8E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -6.41712 4.21869 -1.5211 0.1282
## (Intercept):c_nothing_wrong -1.51596 1.80555 -0.8396 0.4011
## loyalty:b_dumbfounded 1.61938 1.43751 1.1265 0.2599
## loyalty:c_nothing_wrong 0.29953 0.67734 0.4422 0.6583
##
## Log-Likelihood: -28.836
## McFadden R^2: 0.027105
## Likelihood ratio test : chisq = 1.6068 (p.value = 0.44781)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Loyalty)

Authority
##
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.617647 0.088235 0.294118
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 5.72E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -5.601480 3.416214 -1.6397 0.1011
## (Intercept):c_nothing_wrong -0.899357 1.375555 -0.6538 0.5132
## authority:b_dumbfounded 1.191336 1.024283 1.1631 0.2448
## authority:c_nothing_wrong 0.056937 0.476543 0.1195 0.9049
##
## Log-Likelihood: -28.803
## McFadden R^2: 0.028212
## Likelihood ratio test : chisq = 1.6724 (p.value = 0.43336)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Authority)

Purity
##
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.617647 0.088235 0.294118
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 8.68E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.55566 2.13828 -1.1952 0.2320
## (Intercept):c_nothing_wrong -2.37465 1.45864 -1.6280 0.1035
## purity:b_dumbfounded 0.25104 0.82463 0.3044 0.7608
## purity:c_nothing_wrong 0.64314 0.54034 1.1903 0.2339
##
## Log-Likelihood: -28.875
## McFadden R^2: 0.025782
## Likelihood ratio test : chisq = 1.5283 (p.value = 0.46572)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Purity)

All Variables
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P +
## RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion +
## Openness + Agreeableness + Conscientiousness + harm_care +
## +fairness + loyalty + authority + purity + AOT, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.56667 0.10000 0.33333
##
## nr method
## 19 iterations, 0h:0m:0s
## g'(-H)^-1g = 6.78E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 3.6589e+01 2.5964e+05 0.0001 0.9999
## (Intercept):c_nothing_wrong 2.3498e+01 8.4189e+04 0.0003 0.9998
## Political_Ideology:b_dumbfounded 3.7103e-01 1.7882e+04 0.0000 1.0000
## Political_Ideology:c_nothing_wrong 1.8990e+01 4.7718e+03 0.0040 0.9968
## NFC:b_dumbfounded -4.3597e+00 1.2902e+04 -0.0003 0.9997
## NFC:c_nothing_wrong 8.1465e+00 1.2082e+04 0.0007 0.9995
## RE_P:b_dumbfounded 4.8952e+01 4.2659e+04 0.0011 0.9991
## RE_P:c_nothing_wrong 5.8458e+01 2.7512e+04 0.0021 0.9983
## RE_N:b_dumbfounded -2.8008e+01 3.9304e+04 -0.0007 0.9994
## RE_N:c_nothing_wrong -2.5605e+01 3.6647e+04 -0.0007 0.9994
## DT_M:b_dumbfounded -6.7415e-02 1.1711e+04 0.0000 1.0000
## DT_M:c_nothing_wrong 1.4615e+01 1.3357e+04 0.0011 0.9991
## DT_P:b_dumbfounded 2.8593e+00 1.3328e+04 0.0002 0.9998
## DT_P:c_nothing_wrong -8.2968e+00 7.7128e+03 -0.0011 0.9991
## DT_N:b_dumbfounded -3.3050e+00 1.0044e+04 -0.0003 0.9997
## DT_N:c_nothing_wrong -2.7304e+01 5.1524e+03 -0.0053 0.9958
## Neuroticism:b_dumbfounded -3.1894e+01 4.8655e+04 -0.0007 0.9995
## Neuroticism:c_nothing_wrong -3.1902e+01 1.8799e+04 -0.0017 0.9986
## Extraversion:b_dumbfounded -2.0084e+01 3.7989e+04 -0.0005 0.9996
## Extraversion:c_nothing_wrong 2.0688e+01 3.7728e+04 0.0005 0.9996
## Openness:b_dumbfounded -6.2813e+00 2.7479e+04 -0.0002 0.9998
## Openness:c_nothing_wrong 2.4232e+01 2.0181e+04 0.0012 0.9990
## Agreeableness:b_dumbfounded 4.7160e+01 6.9892e+04 0.0007 0.9995
## Agreeableness:c_nothing_wrong 9.9403e+01 3.2035e+04 0.0031 0.9975
## Conscientiousness:b_dumbfounded -2.1179e+01 5.0670e+04 -0.0004 0.9997
## Conscientiousness:c_nothing_wrong -7.3424e+01 2.8806e+04 -0.0025 0.9980
## harm_care:b_dumbfounded 8.5807e+00 2.3604e+04 0.0004 0.9997
## harm_care:c_nothing_wrong 2.1124e+01 4.5622e+04 0.0005 0.9996
## fairness:b_dumbfounded 1.0428e+01 6.9310e+04 0.0002 0.9999
## fairness:c_nothing_wrong 4.3437e+01 1.2588e+04 0.0035 0.9972
## loyalty:b_dumbfounded 1.7997e+01 2.6232e+04 0.0007 0.9995
## loyalty:c_nothing_wrong 1.7410e+01 2.9567e+04 0.0006 0.9995
## authority:b_dumbfounded -1.2016e+01 2.5766e+04 -0.0005 0.9996
## authority:c_nothing_wrong -4.6098e+01 3.0912e+04 -0.0015 0.9988
## purity:b_dumbfounded -1.3477e+01 4.0414e+04 -0.0003 0.9997
## purity:c_nothing_wrong -1.1592e+01 1.7100e+04 -0.0007 0.9995
## AOT:b_dumbfounded -2.0855e+01 8.9769e+04 -0.0002 0.9998
## AOT:c_nothing_wrong -1.5524e+02 6.6658e+04 -0.0023 0.9981
##
## Log-Likelihood: -2.4957e-07
## McFadden R^2: 1
## Likelihood ratio test : chisq = 55.099 (p.value = 0.021737)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Druggist
##
## a_reasons b_dumbfounded c_nothing_wrong
## 22 5 3
Politics and Religion
Political Ideology
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71429 0.17857 0.10714
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.68E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.9133131 1.0387509 -1.8419 0.06548 .
## (Intercept):c_nothing_wrong -1.8842954 1.1689549 -1.6119 0.10697
## Political_Ideology:b_dumbfounded 0.1435458 0.2353170 0.6100 0.54185
## Political_Ideology:c_nothing_wrong -0.0038378 0.2972638 -0.0129 0.98970
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -21.851
## McFadden R^2: 0.0087733
## Likelihood ratio test : chisq = 0.3868 (p.value = 0.82415)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (PI)

RCOPE Positive
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71429 0.17857 0.10714
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 6.34E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.330802 1.663629 -0.7999 0.4237
## (Intercept):c_nothing_wrong -2.190381 1.982956 -1.1046 0.2693
## RE_P:b_dumbfounded -0.043042 1.232769 -0.0349 0.9721
## RE_P:c_nothing_wrong 0.223418 1.419158 0.1574 0.8749
##
## Log-Likelihood: -22.03
## McFadden R^2: 0.0006294
## Likelihood ratio test : chisq = 0.027749 (p.value = 0.98622)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (RCOPE Positive)

RCOPE Negative
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71429 0.17857 0.10714
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.31E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -4.67891 2.61122 -1.7918 0.07316 .
## (Intercept):c_nothing_wrong -1.18746 3.45037 -0.3442 0.73073
## RE_N:b_dumbfounded 2.63167 1.97985 1.3292 0.18377
## RE_N:c_nothing_wrong -0.61348 2.96154 -0.2071 0.83589
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -21.036
## McFadden R^2: 0.045735
## Likelihood ratio test : chisq = 2.0164 (p.value = 0.36488)
## $hosmer_and_lemeshow
## [1] 0
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] 0
##
## $nagelkerke
## [1] 0
Plot (RCOPE Negative)

Thinking
Need For Cognition
##
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71429 0.17857 0.10714
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.34E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.384905 0.500756 -2.7656 0.005681 **
## (Intercept):c_nothing_wrong -2.507202 0.948853 -2.6423 0.008233 **
## NFC:b_dumbfounded -0.016957 0.373037 -0.0455 0.963743
## NFC:c_nothing_wrong -0.955222 0.624721 -1.5290 0.126255
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -20.515
## McFadden R^2: 0.069366
## Likelihood ratio test : chisq = 3.0582 (p.value = 0.21673)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (NFC)

AOT
##
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.69231 0.19231 0.11538
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.001
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.82830 3.12944 -0.9038 0.3661
## (Intercept):c_nothing_wrong -2.47632 3.72489 -0.6648 0.5062
## AOT:b_dumbfounded 0.67938 1.33897 0.5074 0.6119
## AOT:c_nothing_wrong 0.30424 1.62036 0.1878 0.8511
##
## Log-Likelihood: -21.204
## McFadden R^2: 0.0064064
## Likelihood ratio test : chisq = 0.27344 (p.value = 0.87222)
## $hosmer_and_lemeshow
## [1] 0
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] 0
##
## $nagelkerke
## [1] 0
Plot (AOT)

Dark Triad
Machiavellianism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71429 0.17857 0.10714
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.13E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.04332 1.04987 -0.9938 0.32034
## (Intercept):c_nothing_wrong -3.36263 1.60068 -2.1008 0.03566 *
## DT_M:b_dumbfounded -0.11447 0.31773 -0.3603 0.71863
## DT_M:c_nothing_wrong 0.38933 0.34918 1.1150 0.26486
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -21.242
## McFadden R^2: 0.036365
## Likelihood ratio test : chisq = 1.6033 (p.value = 0.44859)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Machiavellianism)

Narcissism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.70370 0.18519 0.11111
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 7.25E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.064851 1.210249 -0.8799 0.3789
## (Intercept):c_nothing_wrong -1.295784 1.441865 -0.8987 0.3688
## DT_N:b_dumbfounded -0.074015 0.306452 -0.2415 0.8091
## DT_N:c_nothing_wrong -0.155350 0.383546 -0.4050 0.6855
##
## Log-Likelihood: -21.601
## McFadden R^2: 0.0045529
## Likelihood ratio test : chisq = 0.1976 (p.value = 0.90592)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Narcissism)

Psychopathy
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71429 0.17857 0.10714
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 2E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.21567 1.04002 -2.1304 0.03314 *
## (Intercept):c_nothing_wrong -1.65165 1.30199 -1.2686 0.20460
## DT_P:b_dumbfounded 0.35328 0.36502 0.9678 0.33313
## DT_P:c_nothing_wrong -0.12352 0.59239 -0.2085 0.83482
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -21.51
## McFadden R^2: 0.024238
## Likelihood ratio test : chisq = 1.0686 (p.value = 0.58608)
## $hosmer_and_lemeshow
## [1] 0
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] 0
##
## $nagelkerke
## [1] 0
Plot (Psychopathy)

Big Five
Openness
##
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72414 0.17241 0.10345
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 5.09E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.06000 2.57236 -0.8008 0.4232
## (Intercept):c_nothing_wrong -2.25252 3.18407 -0.7074 0.4793
## Openness:b_dumbfounded 0.23430 0.93923 0.2495 0.8030
## Openness:c_nothing_wrong 0.11567 1.17315 0.0986 0.9215
##
## Log-Likelihood: -22.341
## McFadden R^2: 0.0014622
## Likelihood ratio test : chisq = 0.065428 (p.value = 0.96782)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Openness)

Agreeableness
##
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72414 0.17241 0.10345
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.33E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -3.28569 2.88298 -1.1397 0.2544
## (Intercept):c_nothing_wrong 0.16622 3.45896 0.0481 0.9617
## Agreeableness:b_dumbfounded 0.66890 1.00821 0.6635 0.5070
## Agreeableness:c_nothing_wrong -0.81544 1.34929 -0.6043 0.5456
##
## Log-Likelihood: -21.885
## McFadden R^2: 0.021817
## Likelihood ratio test : chisq = 0.97625 (p.value = 0.61377)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Agreeableness)

Conscientiousness
##
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72414 0.17241 0.10345
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 6.1E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -0.74611 3.00533 -0.2483 0.80393
## (Intercept):c_nothing_wrong -12.72612 6.95524 -1.8297 0.06729 .
## Conscientiousness:b_dumbfounded -0.25706 1.11223 -0.2311 0.81722
## Conscientiousness:c_nothing_wrong 3.60655 2.20464 1.6359 0.10186
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -20.236
## McFadden R^2: 0.095524
## Likelihood ratio test : chisq = 4.2744 (p.value = 0.11798)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Conscientiousness)

Neuroticism
##
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.72414 0.17241 0.10345
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.49E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -4.5447 2.6666 -1.7043 0.08833 .
## (Intercept):c_nothing_wrong -4.8536 3.2523 -1.4923 0.13561
## Neuroticism:b_dumbfounded 1.1192 0.9060 1.2353 0.21673
## Neuroticism:c_nothing_wrong 1.0508 1.1020 0.9536 0.34028
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -21.238
## McFadden R^2: 0.050765
## Likelihood ratio test : chisq = 2.2716 (p.value = 0.32117)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Neuroticism)

Moral Foundations
Harm/Care
##
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.70370 0.18519 0.11111
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.000148
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.445886 3.385692 -0.4271 0.6693
## (Intercept):c_nothing_wrong 3.755704 3.590560 1.0460 0.2956
## harm_care:b_dumbfounded 0.031721 0.957117 0.0331 0.9736
## harm_care:c_nothing_wrong -1.745389 1.157678 -1.5077 0.1316
##
## Log-Likelihood: -20.316
## McFadden R^2: 0.063776
## Likelihood ratio test : chisq = 2.7679 (p.value = 0.25058)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Harm/Care)

Fairness
##
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.70370 0.18519 0.11111
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.42E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.52074 3.63491 -0.6935 0.4880
## (Intercept):c_nothing_wrong -4.61524 4.94863 -0.9326 0.3510
## fairness:b_dumbfounded 0.29999 0.90419 0.3318 0.7401
## fairness:c_nothing_wrong 0.69036 1.20120 0.5747 0.5655
##
## Log-Likelihood: -21.492
## McFadden R^2: 0.0095907
## Likelihood ratio test : chisq = 0.41624 (p.value = 0.81211)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Fairness)

Loyalty
##
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.70370 0.18519 0.11111
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 6.37E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 0.23337 2.18607 0.1068 0.9150
## (Intercept):c_nothing_wrong 0.22968 2.61062 0.0880 0.9299
## loyalty:b_dumbfounded -0.60860 0.84477 -0.7204 0.4713
## loyalty:c_nothing_wrong -0.81748 1.03997 -0.7861 0.4318
##
## Log-Likelihood: -21.212
## McFadden R^2: 0.0225
## Likelihood ratio test : chisq = 0.97651 (p.value = 0.6137)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Loyalty)

Authority
##
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.70370 0.18519 0.11111
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.03E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.474144 2.202442 -0.6693 0.5033
## (Intercept):c_nothing_wrong 2.154681 2.790021 0.7723 0.4399
## authority:b_dumbfounded 0.050485 0.776303 0.0650 0.9481
## authority:c_nothing_wrong -1.633776 1.187948 -1.3753 0.1690
##
## Log-Likelihood: -20.521
## McFadden R^2: 0.054331
## Likelihood ratio test : chisq = 2.358 (p.value = 0.30759)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Authority)

Purity
##
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.70370 0.18519 0.11111
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.13E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -0.374158 1.656030 -0.2259 0.8213
## (Intercept):c_nothing_wrong -2.013329 2.314719 -0.8698 0.3844
## purity:b_dumbfounded -0.416130 0.700071 -0.5944 0.5522
## purity:c_nothing_wrong 0.068976 0.913787 0.0755 0.9398
##
## Log-Likelihood: -21.508
## McFadden R^2: 0.0088496
## Likelihood ratio test : chisq = 0.38408 (p.value = 0.82528)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Purity)

All Variables
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P +
## RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion +
## Openness + Agreeableness + Conscientiousness + harm_care +
## +fairness + loyalty + authority + purity + AOT, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.69231 0.19231 0.11538
##
## nr method
## 19 iterations, 0h:0m:0s
## g'(-H)^-1g = 4.2E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -8.1759e+02 1.7842e+06 -5e-04 0.9996
## (Intercept):c_nothing_wrong 2.5139e+02 1.8865e+06 1e-04 0.9999
## Political_Ideology:b_dumbfounded 4.7176e+00 2.0500e+04 2e-04 0.9998
## Political_Ideology:c_nothing_wrong 1.7120e+00 7.0904e+03 2e-04 0.9998
## NFC:b_dumbfounded -1.6818e+01 6.0591e+04 -3e-04 0.9998
## NFC:c_nothing_wrong -3.9968e+00 8.1606e+04 0e+00 1.0000
## RE_P:b_dumbfounded 3.8017e+00 2.9862e+05 0e+00 1.0000
## RE_P:c_nothing_wrong -5.6896e+00 3.7490e+05 0e+00 1.0000
## RE_N:b_dumbfounded 8.7164e+01 2.5959e+05 3e-04 0.9997
## RE_N:c_nothing_wrong 6.6493e-01 3.3648e+05 0e+00 1.0000
## DT_M:b_dumbfounded -2.4936e+00 7.6889e+04 0e+00 1.0000
## DT_M:c_nothing_wrong 4.7372e+00 4.0320e+04 1e-04 0.9999
## DT_P:b_dumbfounded 2.0738e+01 3.8469e+04 5e-04 0.9996
## DT_P:c_nothing_wrong -2.1284e+00 4.1132e+04 -1e-04 1.0000
## DT_N:b_dumbfounded 9.6682e+00 4.1647e+04 2e-04 0.9998
## DT_N:c_nothing_wrong -3.6318e+00 1.8218e+04 -2e-04 0.9998
## Neuroticism:b_dumbfounded 5.9857e+01 1.1982e+05 5e-04 0.9996
## Neuroticism:c_nothing_wrong 5.5895e-01 2.4860e+05 0e+00 1.0000
## Extraversion:b_dumbfounded 1.7106e+01 2.4964e+05 1e-04 0.9999
## Extraversion:c_nothing_wrong 6.0370e+00 2.1399e+05 0e+00 1.0000
## Openness:b_dumbfounded -5.1167e+01 2.3031e+05 -2e-04 0.9998
## Openness:c_nothing_wrong -2.3137e+00 8.4955e+04 0e+00 1.0000
## Agreeableness:b_dumbfounded -4.1351e+00 8.9379e+04 0e+00 1.0000
## Agreeableness:c_nothing_wrong -2.4311e+01 1.8438e+05 -1e-04 0.9999
## Conscientiousness:b_dumbfounded -1.3039e+01 2.4312e+05 -1e-04 1.0000
## Conscientiousness:c_nothing_wrong 1.3956e+01 8.5504e+04 2e-04 0.9999
## harm_care:b_dumbfounded 3.4847e+01 6.5487e+04 5e-04 0.9996
## harm_care:c_nothing_wrong -2.7211e+01 7.0340e+04 -4e-04 0.9997
## fairness:b_dumbfounded 4.5434e+01 9.4496e+04 5e-04 0.9996
## fairness:c_nothing_wrong -1.2686e+01 1.8430e+05 -1e-04 0.9999
## loyalty:b_dumbfounded -2.4310e+01 1.9424e+05 -1e-04 0.9999
## loyalty:c_nothing_wrong -6.1877e+00 3.1250e+05 0e+00 1.0000
## authority:b_dumbfounded 4.5427e+00 1.4564e+05 0e+00 1.0000
## authority:c_nothing_wrong -1.0092e+01 1.9585e+05 -1e-04 1.0000
## purity:b_dumbfounded 1.6784e+01 1.2897e+05 1e-04 0.9999
## purity:c_nothing_wrong 8.4817e+00 2.1234e+05 0e+00 1.0000
## AOT:b_dumbfounded 1.2253e+02 1.6747e+05 7e-04 0.9994
## AOT:c_nothing_wrong -3.9698e+01 1.4755e+05 -3e-04 0.9998
##
## Log-Likelihood: -1.5459e-07
## McFadden R^2: 1
## Likelihood ratio test : chisq = 42.682 (p.value = 0.20585)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Cannibal
##
## a_reasons b_dumbfounded c_nothing_wrong
## 32 3 3
Politics and Religion
Political Ideology
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.888889 0.055556 0.055556
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.27E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.40317 1.46866 -1.6363 0.1018
## (Intercept):c_nothing_wrong -1.52444 1.22469 -1.2447 0.2132
## Political_Ideology:b_dumbfounded -0.11643 0.42188 -0.2760 0.7826
## Political_Ideology:c_nothing_wrong -0.47017 0.46753 -1.0056 0.3146
##
## Log-Likelihood: -14.733
## McFadden R^2: 0.03896
## Likelihood ratio test : chisq = 1.1945 (p.value = 0.55031)
## $hosmer_and_lemeshow
## [1] 0
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] 0
##
## $nagelkerke
## [1] 0
Plot (PI)

RCOPE Positive
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.888889 0.055556 0.055556
##
## nr method
## 20 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.87E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.3166 2.0523 -0.6415 0.5212
## (Intercept):c_nothing_wrong 93.8994 18560.3771 0.0051 0.9960
## RE_P:b_dumbfounded -1.0407 1.5655 -0.6647 0.5062
## RE_P:c_nothing_wrong -95.8883 18560.3768 -0.0052 0.9959
##
## Log-Likelihood: -13.519
## McFadden R^2: 0.11816
## Likelihood ratio test : chisq = 3.6229 (p.value = 0.16341)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (RCOPE Positive)

RCOPE Negative
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.885714 0.057143 0.057143
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.44E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.823943 1.928721 -1.4642 0.1432
## (Intercept):c_nothing_wrong -2.823943 1.928721 -1.4642 0.1432
## RE_N:b_dumbfounded 0.068904 1.471652 0.0468 0.9627
## RE_N:c_nothing_wrong 0.068904 1.471652 0.0468 0.9627
##
## Log-Likelihood: -15.209
## McFadden R^2: 0.00013127
## Likelihood ratio test : chisq = 0.0039936 (p.value = 0.99801)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (RCOPE Negative)

Thinking
Need For Cognition
##
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.885714 0.057143 0.057143
##
## nr method
## 8 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.38E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.72474 0.73029 -3.7310 0.0001907 ***
## (Intercept):c_nothing_wrong -6.30027 3.31132 -1.9026 0.0570865 .
## NFC:b_dumbfounded -0.11401 0.46064 -0.2475 0.8045155
## NFC:c_nothing_wrong 2.08755 1.37195 1.5216 0.1281111
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -12.378
## McFadden R^2: 0.18626
## Likelihood ratio test : chisq = 5.6664 (p.value = 0.058826)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (NFC)

AOT
##
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.885714 0.057143 0.057143
##
## nr method
## 7 iterations, 0h:0m:0s
## g'(-H)^-1g = 8.47E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -4.15033 3.32339 -1.2488 0.2117
## (Intercept):c_nothing_wrong 4.37544 5.39853 0.8105 0.4177
## AOT:b_dumbfounded 0.65644 1.46292 0.4487 0.6536
## AOT:c_nothing_wrong -4.01771 3.32545 -1.2082 0.2270
##
## Log-Likelihood: -13.723
## McFadden R^2: 0.097815
## Likelihood ratio test : chisq = 2.9757 (p.value = 0.22585)
## $hosmer_and_lemeshow
## [1] 0
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] 0
##
## $nagelkerke
## [1] 0
Plot (AOT)

Dark Triad
Machiavellianism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.864865 0.054054 0.081081
##
## nr method
## 7 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.47E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 0.015265 2.055727 0.0074 0.99408
## (Intercept):c_nothing_wrong -2.331905 1.327182 -1.7570 0.07891 .
## DT_M:b_dumbfounded -1.484117 1.360370 -1.0910 0.27529
## DT_M:c_nothing_wrong -0.012373 0.416804 -0.0297 0.97632
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -16.609
## McFadden R^2: 0.078234
## Likelihood ratio test : chisq = 2.8193 (p.value = 0.24423)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Machiavellianism)

Narcissism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.861111 0.055556 0.083333
##
## nr method
## 7 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.00012
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -0.47817 1.55764 -0.3070 0.75886
## (Intercept):c_nothing_wrong -4.16474 1.82002 -2.2883 0.02212 *
## DT_N:b_dumbfounded -0.86797 0.74918 -1.1586 0.24664
## DT_N:c_nothing_wrong 0.36743 0.30212 1.2161 0.22393
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -15.512
## McFadden R^2: 0.13198
## Likelihood ratio test : chisq = 4.7171 (p.value = 0.094558)
## $hosmer_and_lemeshow
## [1] 0
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] 0
##
## $nagelkerke
## [1] 0
Plot (Narcissism)

Psychopathy
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.864865 0.054054 0.081081
##
## nr method
## 9 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.99E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 0.82442 3.36303 0.2451 0.806346
## (Intercept):c_nothing_wrong -4.32599 1.34876 -3.2074 0.001339 **
## DT_P:b_dumbfounded -2.60245 2.88729 -0.9013 0.367403
## DT_P:c_nothing_wrong 0.62562 0.30857 2.0274 0.042617 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -14.339
## McFadden R^2: 0.20418
## Likelihood ratio test : chisq = 7.3579 (p.value = 0.02525)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Psychopathy)

Big Five
Openness
##
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.864865 0.054054 0.081081
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 8.78E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -4.04277 3.29178 -1.2281 0.21939
## (Intercept):c_nothing_wrong 5.87570 4.32848 1.3575 0.17464
## Openness:b_dumbfounded 0.47727 1.17267 0.4070 0.68401
## Openness:c_nothing_wrong -3.81408 2.19462 -1.7379 0.08222 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -15.155
## McFadden R^2: 0.15889
## Likelihood ratio test : chisq = 5.7259 (p.value = 0.057101)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Openness)

Agreeableness
##
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.864865 0.054054 0.081081
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.54E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -6.27131 5.21218 -1.2032 0.2289
## (Intercept):c_nothing_wrong 0.99339 3.47610 0.2858 0.7750
## Agreeableness:b_dumbfounded 1.32293 1.88560 0.7016 0.4829
## Agreeableness:c_nothing_wrong -1.39207 1.47629 -0.9430 0.3457
##
## Log-Likelihood: -17.249
## McFadden R^2: 0.042667
## Likelihood ratio test : chisq = 1.5376 (p.value = 0.46357)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Agreeableness)

Conscientiousness
##
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.864865 0.054054 0.081081
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.79E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -3.79657 3.50181 -1.0842 0.2783
## (Intercept):c_nothing_wrong -0.54612 2.74341 -0.1991 0.8422
## Conscientiousness:b_dumbfounded 0.39100 1.28089 0.3053 0.7602
## Conscientiousness:c_nothing_wrong -0.74529 1.13713 -0.6554 0.5122
##
## Log-Likelihood: -17.733
## McFadden R^2: 0.015853
## Likelihood ratio test : chisq = 0.57128 (p.value = 0.75153)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Conscientiousness)

Neuroticism
##
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.864865 0.054054 0.081081
##
## nr method
## 7 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.82E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 2.30535 2.99154 0.7706 0.4409
## (Intercept):c_nothing_wrong -3.44952 2.52966 -1.3636 0.1727
## Neuroticism:b_dumbfounded -2.30666 1.60144 -1.4404 0.1498
## Neuroticism:c_nothing_wrong 0.36704 0.80842 0.4540 0.6498
##
## Log-Likelihood: -15.93
## McFadden R^2: 0.11589
## Likelihood ratio test : chisq = 4.1762 (p.value = 0.12392)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Neuroticism)

Moral Foundations
Harm/Care
##
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.885714 0.057143 0.057143
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.000147
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -11.07202 8.23099 -1.3452 0.1786
## (Intercept):c_nothing_wrong -0.58019 4.22350 -0.1374 0.8907
## harm_care:b_dumbfounded 2.28991 2.14897 1.0656 0.2866
## harm_care:c_nothing_wrong -0.66078 1.30787 -0.5052 0.6134
##
## Log-Likelihood: -14.21
## McFadden R^2: 0.065799
## Likelihood ratio test : chisq = 2.0017 (p.value = 0.36756)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Harm/Care)

Fairness
##
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.888889 0.055556 0.055556
##
## nr method
## 7 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.43E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -15.9872 11.2093 -1.4263 0.15380
## (Intercept):c_nothing_wrong 8.9006 6.4101 1.3885 0.16497
## fairness:b_dumbfounded 2.9738 2.4075 1.2352 0.21676
## fairness:c_nothing_wrong -3.1220 1.8127 -1.7223 0.08502 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -11.849
## McFadden R^2: 0.22707
## Likelihood ratio test : chisq = 6.9622 (p.value = 0.030773)
## $hosmer_and_lemeshow
## [1] 0
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] 0
##
## $nagelkerke
## [1] 0
Plot (Fairness)

Loyalty
##
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.882353 0.058824 0.058824
##
## nr method
## 21 iterations, 0h:0m:0s
## g'(-H)^-1g = 6.91E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.1467 2.6645 -0.8057 0.4204
## (Intercept):c_nothing_wrong 238.7609 30783.8458 0.0078 0.9938
## loyalty:b_dumbfounded -0.2271 1.0574 -0.2148 0.8299
## loyalty:c_nothing_wrong -190.7830 24260.0134 -0.0079 0.9937
##
## Log-Likelihood: -7.4579
## McFadden R^2: 0.5057
## Likelihood ratio test : chisq = 15.26 (p.value = 0.00048572)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Loyalty)

Authority
##
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.888889 0.055556 0.055556
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 8.88E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.63005 1.73085 -0.9418 0.3463
## (Intercept):c_nothing_wrong 0.37813 1.51862 0.2490 0.8034
## authority:b_dumbfounded -0.47297 0.71193 -0.6644 0.5065
## authority:c_nothing_wrong -1.76107 1.07283 -1.6415 0.1007
##
## Log-Likelihood: -12.948
## McFadden R^2: 0.1554
## Likelihood ratio test : chisq = 4.7649 (p.value = 0.092326)
## $hosmer_and_lemeshow
## [1] 0
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] 0
##
## $nagelkerke
## [1] 0
Plot (Authority)

Purity
##
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.882353 0.058824 0.058824
##
## nr method
## 8 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.13E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -4.74583 2.35428 -2.0158 0.04382 *
## (Intercept):c_nothing_wrong 2.05739 1.88970 1.0887 0.27627
## purity:b_dumbfounded 0.72856 0.72357 1.0069 0.31399
## purity:c_nothing_wrong -3.94511 2.40843 -1.6380 0.10141
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -9.5355
## McFadden R^2: 0.368
## Likelihood ratio test : chisq = 11.105 (p.value = 0.0038787)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Purity)

All Variables
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P +
## RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion +
## Openness + Agreeableness + Conscientiousness + harm_care +
## +fairness + loyalty + authority + purity + AOT, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.866667 0.066667 0.066667
##
## nr method
## 18 iterations, 0h:0m:0s
## g'(-H)^-1g = 6.59E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 2.3263e+01 1.7411e+05 1e-04 0.9999
## (Intercept):c_nothing_wrong -1.8398e+01 1.6234e+05 -1e-04 0.9999
## Political_Ideology:b_dumbfounded -3.4063e+00 2.1824e+04 -2e-04 0.9999
## Political_Ideology:c_nothing_wrong -3.3594e+00 4.0314e+04 -1e-04 0.9999
## NFC:b_dumbfounded -4.8004e+00 2.6153e+04 -2e-04 0.9999
## NFC:c_nothing_wrong -2.7096e+00 3.0378e+04 -1e-04 0.9999
## RE_P:b_dumbfounded 7.9413e+00 6.4763e+04 1e-04 0.9999
## RE_P:c_nothing_wrong -6.1011e-01 6.6927e+04 0e+00 1.0000
## RE_N:b_dumbfounded -5.5682e+00 5.3383e+04 -1e-04 0.9999
## RE_N:c_nothing_wrong 1.0980e+01 4.6690e+04 2e-04 0.9998
## DT_M:b_dumbfounded -1.3313e+01 1.4408e+04 -9e-04 0.9993
## DT_M:c_nothing_wrong -5.4125e+00 2.0351e+04 -3e-04 0.9998
## DT_P:b_dumbfounded 6.0907e+00 1.3254e+04 5e-04 0.9996
## DT_P:c_nothing_wrong 9.8554e+00 1.6033e+04 6e-04 0.9995
## DT_N:b_dumbfounded 6.9497e-01 1.6058e+04 0e+00 1.0000
## DT_N:c_nothing_wrong 1.7465e+00 9.6552e+03 2e-04 0.9999
## Neuroticism:b_dumbfounded -1.7346e+01 5.2276e+04 -3e-04 0.9997
## Neuroticism:c_nothing_wrong -1.6265e-02 3.1702e+04 0e+00 1.0000
## Extraversion:b_dumbfounded -1.0617e+01 3.9495e+04 -3e-04 0.9998
## Extraversion:c_nothing_wrong 2.4961e+00 7.2258e+04 0e+00 1.0000
## Openness:b_dumbfounded -2.2047e+01 9.9368e+04 -2e-04 0.9998
## Openness:c_nothing_wrong 4.9918e+00 9.4758e+04 1e-04 1.0000
## Agreeableness:b_dumbfounded 6.2784e+00 2.8417e+04 2e-04 0.9998
## Agreeableness:c_nothing_wrong -7.2657e+00 7.7702e+04 -1e-04 0.9999
## Conscientiousness:b_dumbfounded -9.4009e+00 4.4887e+04 -2e-04 0.9998
## Conscientiousness:c_nothing_wrong -1.8920e+01 3.9880e+04 -5e-04 0.9996
## harm_care:b_dumbfounded 2.0694e+01 6.2939e+04 3e-04 0.9997
## harm_care:c_nothing_wrong 7.3821e+00 5.0953e+04 1e-04 0.9999
## fairness:b_dumbfounded 1.2229e+01 3.3482e+04 4e-04 0.9997
## fairness:c_nothing_wrong 2.8747e-01 5.0695e+04 0e+00 1.0000
## loyalty:b_dumbfounded -2.6978e+01 3.2414e+04 -8e-04 0.9993
## loyalty:c_nothing_wrong -1.1557e+01 6.1363e+04 -2e-04 0.9998
## authority:b_dumbfounded 7.0556e+00 5.3984e+04 1e-04 0.9999
## authority:c_nothing_wrong -4.9376e+00 4.8381e+04 -1e-04 0.9999
## purity:b_dumbfounded 1.8648e+00 4.4833e+04 0e+00 1.0000
## purity:c_nothing_wrong 1.0569e+01 2.5906e+04 4e-04 0.9997
## AOT:b_dumbfounded 2.1463e+01 3.0803e+04 7e-04 0.9994
## AOT:c_nothing_wrong 1.0147e+01 6.6336e+04 2e-04 0.9999
##
## Log-Likelihood: -2.4233e-07
## McFadden R^2: 1
## Likelihood ratio test : chisq = 29.106 (p.value = 0.78555)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Incest
##
## a_reasons b_dumbfounded c_nothing_wrong
## 24 6 3
Politics and Religion
Political Ideology
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.727273 0.181818 0.090909
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 5.86E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -0.96050 0.80052 -1.1998 0.23020
## (Intercept):c_nothing_wrong -6.36606 2.79923 -2.2742 0.02295 *
## Political_Ideology:b_dumbfounded -0.16514 0.27016 -0.6113 0.54102
## Political_Ideology:c_nothing_wrong 0.97793 0.51590 1.8956 0.05801 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -21.513
## McFadden R^2: 0.14171
## Likelihood ratio test : chisq = 7.1037 (p.value = 0.028671)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (PI)

RCOPE Positive
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71875 0.18750 0.09375
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 2.26E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.374116 1.174746 -1.1697 0.2421
## (Intercept):c_nothing_wrong -1.250993 1.720779 -0.7270 0.4672
## RE_P:b_dumbfounded 0.019992 0.710615 0.0281 0.9776
## RE_P:c_nothing_wrong -0.554517 1.192163 -0.4651 0.6418
##
## Log-Likelihood: -24.611
## McFadden R^2: 0.0052658
## Likelihood ratio test : chisq = 0.26056 (p.value = 0.87785)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (RCOPE Positive)

RCOPE Negative
##
## Call:
## mlogit(formula = InCS ~ 1 | RE_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71875 0.18750 0.09375
##
## nr method
## 19 iterations, 0h:0m:0s
## g'(-H)^-1g = 4.26E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 0.57578 1.99966 0.2879 0.7734
## (Intercept):c_nothing_wrong 109.01100 17680.26626 0.0062 0.9951
## RE_N:b_dumbfounded -1.53466 1.63948 -0.9361 0.3492
## RE_N:c_nothing_wrong -110.07280 17680.26608 -0.0062 0.9950
##
## Log-Likelihood: -21.65
## McFadden R^2: 0.12492
## Likelihood ratio test : chisq = 6.1812 (p.value = 0.045475)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (RCOPE Negative)

Thinking
Need For Cognition
##
## Call:
## mlogit(formula = InCS ~ 1 | NFC, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.71875 0.18750 0.09375
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 4.47E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.25400 0.47702 -2.6288 0.008568 **
## (Intercept):c_nothing_wrong -2.95719 1.06911 -2.7660 0.005675 **
## NFC:b_dumbfounded -0.27824 0.48256 -0.5766 0.564220
## NFC:c_nothing_wrong 1.03301 0.71428 1.4462 0.148111
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -23.255
## McFadden R^2: 0.060048
## Likelihood ratio test : chisq = 2.9713 (p.value = 0.22636)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (NFC)

AOT
##
## Call:
## mlogit(formula = InCS ~ 1 | AOT, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.741935 0.161290 0.096774
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.19E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.37682 2.75667 -0.8622 0.3886
## (Intercept):c_nothing_wrong -1.00902 3.38310 -0.2983 0.7655
## AOT:b_dumbfounded 0.39885 1.26000 0.3165 0.7516
## AOT:c_nothing_wrong -0.49747 1.63207 -0.3048 0.7605
##
## Log-Likelihood: -22.881
## McFadden R^2: 0.0049341
## Likelihood ratio test : chisq = 0.22691 (p.value = 0.89274)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (AOT)

Dark Triad
Machiavellianism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_M, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.727273 0.181818 0.090909
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.24E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -0.602955 1.199649 -0.5026 0.6152
## (Intercept):c_nothing_wrong -1.880665 1.533802 -1.2261 0.2201
## DT_M:b_dumbfounded -0.216555 0.320801 -0.6750 0.4996
## DT_M:c_nothing_wrong -0.052013 0.373496 -0.1393 0.8892
##
## Log-Likelihood: -24.808
## McFadden R^2: 0.010256
## Likelihood ratio test : chisq = 0.51413 (p.value = 0.77332)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Machiavellianism)

Narcissism
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_N, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.75000 0.15625 0.09375
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.53E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.272224 1.269355 -1.0023 0.3162
## (Intercept):c_nothing_wrong -1.455923 1.556941 -0.9351 0.3497
## DT_N:b_dumbfounded -0.062784 0.252150 -0.2490 0.8034
## DT_N:c_nothing_wrong -0.136049 0.326236 -0.4170 0.6767
##
## Log-Likelihood: -23.177
## McFadden R^2: 0.0047137
## Likelihood ratio test : chisq = 0.21954 (p.value = 0.89604)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Narcissism)

Psychopathy
##
## Call:
## mlogit(formula = InCS ~ 1 | DT_P, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.727273 0.181818 0.090909
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.000231
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 0.167650 0.993987 0.1687 0.86606
## (Intercept):c_nothing_wrong -1.941028 1.144971 -1.6953 0.09003 .
## DT_P:b_dumbfounded -0.687284 0.463388 -1.4832 0.13803
## DT_P:c_nothing_wrong -0.046162 0.329744 -0.1400 0.88867
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -23.336
## McFadden R^2: 0.068973
## Likelihood ratio test : chisq = 3.4576 (p.value = 0.1775)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Psychopathy)

Big Five
Openness
##
## Call:
## mlogit(formula = InCS ~ 1 | Openness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.727273 0.181818 0.090909
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 0.000113
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 8.4408 4.1955 2.0119 0.04423 *
## (Intercept):c_nothing_wrong 1.3053 4.6245 0.2823 0.77775
## Openness:b_dumbfounded -4.0560 1.7828 -2.2750 0.02290 *
## Openness:c_nothing_wrong -1.3107 1.8198 -0.7202 0.47138
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -21.123
## McFadden R^2: 0.15726
## Likelihood ratio test : chisq = 7.8834 (p.value = 0.019415)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Openness)

Agreeableness
##
## Call:
## mlogit(formula = InCS ~ 1 | Agreeableness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.727273 0.181818 0.090909
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 1.1E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 4.8576 3.5575 1.3654 0.1721
## (Intercept):c_nothing_wrong -7.1562 5.2375 -1.3663 0.1718
## Agreeableness:b_dumbfounded -2.5538 1.4894 -1.7147 0.0864 .
## Agreeableness:c_nothing_wrong 1.8657 1.8528 1.0070 0.3139
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -22.442
## McFadden R^2: 0.10466
## Likelihood ratio test : chisq = 5.2464 (p.value = 0.072569)
## $hosmer_and_lemeshow
## [1] -4.440892e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -4.440892e-16
##
## $nagelkerke
## [1] -6.167755e-16
Plot (Agreeableness)

Conscientiousness
##
## Call:
## mlogit(formula = InCS ~ 1 | Conscientiousness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.727273 0.181818 0.090909
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 7.33E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -4.7568 3.1604 -1.5051 0.1323
## (Intercept):c_nothing_wrong 2.0495 3.2542 0.6298 0.5288
## Conscientiousness:b_dumbfounded 1.3390 1.2147 1.1024 0.2703
## Conscientiousness:c_nothing_wrong -1.8291 1.4875 -1.2296 0.2188
##
## Log-Likelihood: -23.422
## McFadden R^2: 0.065542
## Likelihood ratio test : chisq = 3.2856 (p.value = 0.19343)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Conscientiousness)

Neuroticism
##
## Call:
## mlogit(formula = InCS ~ 1 | Neuroticism, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.727273 0.181818 0.090909
##
## nr method
## 4 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.02E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -1.439833 2.179697 -0.6606 0.5089
## (Intercept):c_nothing_wrong -2.960436 2.901742 -1.0202 0.3076
## Neuroticism:b_dumbfounded 0.018919 0.752619 0.0251 0.9799
## Neuroticism:c_nothing_wrong 0.305439 0.968048 0.3155 0.7524
##
## Log-Likelihood: -25.016
## McFadden R^2: 0.0019519
## Likelihood ratio test : chisq = 0.09785 (p.value = 0.95225)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Neuroticism)

Moral Foundations
Harm/Care
##
## Call:
## mlogit(formula = InCS ~ 1 | harm_care, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.741935 0.193548 0.064516
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 4.04E-05
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -2.76056 2.93901 -0.9393 0.3476
## (Intercept):c_nothing_wrong -4.50947 4.87500 -0.9250 0.3550
## harm_care:b_dumbfounded 0.40904 0.82897 0.4934 0.6217
## harm_care:c_nothing_wrong 0.59194 1.35025 0.4384 0.6611
##
## Log-Likelihood: -22.002
## McFadden R^2: 0.0089338
## Likelihood ratio test : chisq = 0.39667 (p.value = 0.8201)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Harm/Care)

Fairness
##
## Call:
## mlogit(formula = InCS ~ 1 | fairness, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.741935 0.193548 0.064516
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 9.97E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 0.56065 2.93977 0.1907 0.8488
## (Intercept):c_nothing_wrong -1.68349 4.84861 -0.3472 0.7284
## fairness:b_dumbfounded -0.48870 0.75484 -0.6474 0.5174
## fairness:c_nothing_wrong -0.19205 1.22174 -0.1572 0.8751
##
## Log-Likelihood: -21.988
## McFadden R^2: 0.009569
## Likelihood ratio test : chisq = 0.42487 (p.value = 0.80861)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Fairness)

Loyalty
##
## Call:
## mlogit(formula = InCS ~ 1 | loyalty, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.741935 0.193548 0.064516
##
## nr method
## 8 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.09E-06
## successive function values within tolerance limits
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 3.5933 2.7636 1.3003 0.19351
## (Intercept):c_nothing_wrong 13.4079 7.2573 1.8475 0.06467 .
## loyalty:b_dumbfounded -1.9526 1.1540 -1.6920 0.09065 .
## loyalty:c_nothing_wrong -7.4537 3.7625 -1.9811 0.04758 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -16.29
## McFadden R^2: 0.26622
## Likelihood ratio test : chisq = 11.82 (p.value = 0.0027117)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Loyalty)

Authority
##
## Call:
## mlogit(formula = InCS ~ 1 | authority, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.741935 0.193548 0.064516
##
## nr method
## 5 iterations, 0h:0m:0s
## g'(-H)^-1g = 3.73E-08
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 3.06662 2.24938 1.3633 0.17278
## (Intercept):c_nothing_wrong 1.12596 3.24906 0.3465 0.72893
## authority:b_dumbfounded -1.81394 0.96355 -1.8826 0.05976 .
## authority:c_nothing_wrong -1.43008 1.37645 -1.0390 0.29882
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -19.464
## McFadden R^2: 0.12327
## Likelihood ratio test : chisq = 5.4732 (p.value = 0.064789)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Authority)

Purity
##
## Call:
## mlogit(formula = InCS ~ 1 | purity, data = df3a, method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.741935 0.193548 0.064516
##
## nr method
## 6 iterations, 0h:0m:0s
## g'(-H)^-1g = 8.18E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded -0.027763 1.544352 -0.0180 0.98566
## (Intercept):c_nothing_wrong 2.895789 2.547406 1.1368 0.25564
## purity:b_dumbfounded -0.567429 0.663256 -0.8555 0.39226
## purity:c_nothing_wrong -2.918255 1.549727 -1.8831 0.05969 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Log-Likelihood: -19.307
## McFadden R^2: 0.13034
## Likelihood ratio test : chisq = 5.787 (p.value = 0.055382)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16
Plot (Purity)

All Variables
##
## Call:
## mlogit(formula = InCS ~ 1 | Political_Ideology + NFC + RE_P +
## RE_N + DT_M + DT_P + DT_N + Neuroticism + Extraversion +
## Openness + Agreeableness + Conscientiousness + harm_care +
## +fairness + loyalty + authority + purity + AOT, data = df3a,
## method = "nr")
##
## Frequencies of alternatives:choice
## a_reasons b_dumbfounded c_nothing_wrong
## 0.766667 0.166667 0.066667
##
## nr method
## 18 iterations, 0h:0m:0s
## g'(-H)^-1g = 9.53E-07
## gradient close to zero
##
## Coefficients :
## Estimate Std. Error z-value Pr(>|z|)
## (Intercept):b_dumbfounded 90.6564 120319.7704 0.0008 0.9994
## (Intercept):c_nothing_wrong -44.2430 178214.7930 -0.0002 0.9998
## Political_Ideology:b_dumbfounded 1.5636 3866.7680 0.0004 0.9997
## Political_Ideology:c_nothing_wrong 3.4295 6722.7104 0.0005 0.9996
## NFC:b_dumbfounded -6.4894 7960.1375 -0.0008 0.9993
## NFC:c_nothing_wrong -5.3170 13732.6930 -0.0004 0.9997
## RE_P:b_dumbfounded 4.4363 10433.0274 0.0004 0.9997
## RE_P:c_nothing_wrong 16.0252 27382.8626 0.0006 0.9995
## RE_N:b_dumbfounded 22.5828 19266.9162 0.0012 0.9991
## RE_N:c_nothing_wrong -1.2174 38266.7732 0.0000 1.0000
## DT_M:b_dumbfounded -4.9695 6992.9412 -0.0007 0.9994
## DT_M:c_nothing_wrong -0.6819 10089.0259 -0.0001 0.9999
## DT_P:b_dumbfounded -14.9517 5219.7682 -0.0029 0.9977
## DT_P:c_nothing_wrong -3.0333 7527.6514 -0.0004 0.9997
## DT_N:b_dumbfounded 2.4051 3651.9273 0.0007 0.9995
## DT_N:c_nothing_wrong 2.1171 5353.2829 0.0004 0.9997
## Neuroticism:b_dumbfounded 9.4112 10995.2754 0.0009 0.9993
## Neuroticism:c_nothing_wrong 4.7714 13439.1892 0.0004 0.9997
## Extraversion:b_dumbfounded -20.0601 11541.8213 -0.0017 0.9986
## Extraversion:c_nothing_wrong -3.5266 22773.4065 -0.0002 0.9999
## Openness:b_dumbfounded -5.4969 29058.5592 -0.0002 0.9998
## Openness:c_nothing_wrong -14.7211 32256.9220 -0.0005 0.9996
## Agreeableness:b_dumbfounded 37.8661 31664.8332 0.0012 0.9990
## Agreeableness:c_nothing_wrong 21.5681 27932.6146 0.0008 0.9994
## Conscientiousness:b_dumbfounded -5.2155 20389.6479 -0.0003 0.9998
## Conscientiousness:c_nothing_wrong -24.4832 45904.6300 -0.0005 0.9996
## harm_care:b_dumbfounded -13.8665 14131.9236 -0.0010 0.9992
## harm_care:c_nothing_wrong 5.7688 15791.0058 0.0004 0.9997
## fairness:b_dumbfounded -9.1897 17005.9112 -0.0005 0.9996
## fairness:c_nothing_wrong 14.2033 22446.5203 0.0006 0.9995
## loyalty:b_dumbfounded -10.1946 10119.3831 -0.0010 0.9992
## loyalty:c_nothing_wrong -13.8591 15366.0436 -0.0009 0.9993
## authority:b_dumbfounded -46.1546 11577.0160 -0.0040 0.9968
## authority:c_nothing_wrong 1.2042 29896.1429 0.0000 1.0000
## purity:b_dumbfounded -12.2729 8513.1168 -0.0014 0.9988
## purity:c_nothing_wrong -20.8725 31012.7268 -0.0007 0.9995
## AOT:b_dumbfounded 56.7447 27077.2875 0.0021 0.9983
## AOT:c_nothing_wrong 19.6214 44602.5362 0.0004 0.9996
##
## Log-Likelihood: -3.5064e-07
## McFadden R^2: 1
## Likelihood ratio test : chisq = 40.972 (p.value = 0.26148)
## $hosmer_and_lemeshow
## [1] -2.220446e-16
##
## $mcfadden
## [1] NA
##
## $cox_and_snell
## [1] -2.220446e-16
##
## $nagelkerke
## [1] -3.083878e-16